IF exists(SELECT * FROM dbo.sysobjects WHERE name='vakrapportMaakKlasXML' AND xtype='P') 
BEGIN
	DROP PROCEDURE vakrapportMaakKlasXML
END
GO

CREATE  PROCEDURE vakrapportMaakKlasXML
(@deKlas varchar(5),@dePeriode varchar(2),@hetJaar varchar(4))
as
set nocount on

--Rekenwerk

execute vakrapportMaakBerekeningen @deKlas,@dePeriode

----------------------------------
--Aanmaak XML-teksten
----------------------------------

declare @iNr char(7)
declare @achternaam varchar(50)
declare @voornaam varchar(50)

--Een cursor die over de leerlingen van de klas loopt.

declare deCursor cursor local for 
  select inschrijvingsNr,achternaam,voornaam
  from leerlingen.dbo.leerlingen
  where klas= @deKlas 
for read only

-- Opstellen van de XML tekst voor elke leerling

open deCursor
fetch next from deCursor into @iNr,@achternaam,@voornaam
while (@@fetch_status=0)
begin
  set @achternaam = replace(@achternaam,'''','''''')
  set @voornaam = replace(@voornaam,'''','''''')
  execute('vakrapportMaakLeerlingXML ''' + @iNr + ''',''' + @deKlas + ''',''' 
		+  @achternaam + ''',''' + @voornaam + ''',''' 
		+  @dePeriode + ''',''' + @hetJaar + '''')
  fetch next from deCursor into @iNr,@achternaam,@voornaam
end

-- Opruimen....

close deCursor
deallocate deCursor